6 :REM POKE214,X:PRINT --- THIS POSITIONS THE CURSOR ON ROW X+1
8 :REM POKE781,X:SYS59903 -- THIS ERASES LINE X
10 POKE53280,0:POKE53281,0:POKE53272,23:PRINT"[147]";
12 GOSUB60000:REM LS COPYRIGHT BOX
14 GOTO120
20 :
30 :REM ERROR TRAP!
32 :
40 OPEN4,4,7:CLOSE4
50 IFST=0THENRETURN:REM PRINTER IS ON
60 POKE781,18:SYS59903:POKE781,19:SYS59903
70 POKE214,17:PRINT:PRINT"          [212][213][210][206] [207][206] [217][207][213][210][160][208][210][201][206][212][197][210]       "
80 PRINT"            [158][193]ND PRESS A KEY"
90 GETA$:IFA$=""THEN90
100 POKE781,18:SYS59903:POKE781,19:SYS59903
110 RETURN
117 :
118 :REM SCREEN
119 :
120 PRINT"[147]                                       ";
130 PRINT" [155]   [176][174]     [176][178][192][178][192][174]    [176][192][174]        [176][192][174]  ";
140 PRINT"       [153][221][221][176][192][178][192][178][189][221][173][219][174][171][192][178][192][174][221][221][171][192][178][192][178][192][178][192][178][177][174][171]";
150 PRINT"[192][174]    [153]   [159][221][221][221][221][171][189][221][221][221] [221][221][171][189][221] [221][221] [221] [221][221][221] [179][221][221]";
160 PRINT" [221][221] [179]    [159]   [154][221][173][179] [221][221][221] [171][174][221][221][221][221][221][171][189][221][176][179][171][179][176][219] ";
170 PRINT"[221][176][179][221][221][171] [221]    [154]   [173][192][177][192][177][192][177][192][177][192][189][173][177][192][177][189] [173][189][173][189][173]";
180 PRINT"[192][177][192][177][192][177][177][177][177][192][189]        [159][172][219][187]   [176][178][174]  [176][192][174][176][192][178][174] ";
190 PRINT"  [176][192][174]   [159][172][219][187]      [159]   [172][190][153][221][159][188][187]  [153][221][221][221][176][192][179][171]";
200 PRINT"[189][173][174][221][173][178][192][174][221][221][221]  [159][172][190][153][221][159][188][187]     [159]  [154][192][159][219][153][192] [153]";
210 PRINT"[146][192][159][219][154][192] [159][221][221][221][221][221][221][173][174] [221][221] [221][221][221][221] [221] [154][192][159][219][153][192] [153][146][192][159]";
220 PRINT"[219][154][192]    [154]   [159][188][187][153][221][159][172][190]  [154][221] [221][221] [221][176][189] [221][221] [221][176][179][221][176]";
230 PRINT"[189]  [159][188][187][153]}[159][172][190]     [159]    [188]{[190]   [173][177][189][173]`[177][189]  [173][177]";
240 PRINT"[177][177]`[189][173][189]    [159][188]{[190] AJH  [159]     [154]}           ";
250 PRINT"               }       [154]     ! [153]1[159].....";
260 PRINT"..pRINT oUT pUZZLE [154]!       [154]       [153]2[159]";
270 PRINT".....pRINT oUT sOLUTION         [159]      ";
280 PRINT" [153]3[159].......[209]UIT TO [204][207][193][196][211][212][193][210]            ";
287 :
288 :REM GET LOOP
289 :
290 GETA$:IFA$=""THEN290
300 IFA$="1"THEN350
310 IFA$="2"THEN880
320 IFA$="3"THEN40000
330 IFA$<"1"ORA$>"3"THEN290
339 :
340 :REM PRINT OUT PUZZLE
341 :
350 POKE214,17:PRINT:PRINT"  [159][212]URN YOUR PRINTER ON AND HIT A KEY  "
360 GETA$:IFA$=""THEN360
370 POKE781,18:SYS59903
380 GOSUB40
390 IFST<>0THEN380
400 POKE214,17:PRINT:PRINT"     [153][211]ET TOP OF FORM; [208]RESS A KEY.    "
410 GETA$:IFA$=""THEN410
420 OPEN4,4,7
430 PRINT#4,"                            [215] OF THE [208]"
440 PRINT#4:PRINT#4
450 PRINT#4,"A.   26 = [204] OF THE [193] :............................................"
460 PRINT#4
470 PRINT#4,"B.   12 = [205] IN A [217] :.............................................."
480 PRINT#4
490 PRINT#4,"C.   12 = [211] OF THE [218] :............................................"
500 PRINT#4
510 PRINT#4,"D.  365 = [196] IN A [217] :.............................................."
520 PRINT#4
530 PRINT#4,"E.    3 = [208] OF THE [198] [211] :.........................................."
540 PRINT#4
550 PRINT#4,"F. 20000= [204] [213] THE [211] :............................................."
560 PRINT#4
570 PRINT#4,"G. 1001 = [193] [206] :..................................................."
580 PRINT#4
590 PRINT#4,"H.    1 = [197] [196][160]IN A [204] [217] :.........................................."
600 PRINT#4
610 PRINT#4,"I.   57 = [195] AND [206] ON :............................................"
620 PRINT#4
630 PRINT#4,"J.   52 = [195] IN A [196] :.............................................."
640 PRINT#4
650 PRINT#4,"K.   24 = [200] IN A [196] :.............................................."
660 PRINT#4
670 PRINT#4,"L.   10 = [217] IN A [196] :.............................................."
680 PRINT#4
690 PRINT#4,"M.    7 = [196] IN A [215] :.............................................."
700 PRINT#4
710 PRINT#4,"N.    5 = [208] OF THE [205] :............................................"
720 PRINT#4
730 PRINT#4,"O.  100 = [217] IN A [195] :.............................................."
740 PRINT#4
750 PRINT#4,"P.   12 = [197] IN A [196] :.............................................."
760 PRINT#4
770 PRINT#4,"Q.   40 = [195] ON A [195] [211] :............................................"
780 PRINT#4
790 PRINT#4,"R.   13 = [211] ON THE [195] [198] :.........................................."
800 PRINT#4
810 PRINT#4,"S. 1000 = [215] A [208] IS [215] :............................................"
820 PRINT#4
830 PRINT#4,"T.  664 = [194] ON A [196] :.............................................."
840 PRINT#4
850 PRINT#4," [193]MAZE YOUR NEIGHBORS, IMPRESS YOUR FRIENDS!"
860 FORI=1TO22:PRINT#4:NEXT:CLOSE4:GOTO120
869 :
870 REM PRINT ANSWERS
871 :
880 POKE214,17:PRINT:PRINT"[159]   [212]URN ON [208]RINTER AND PRESS A KEY"
890 GETA$:IFA$=""THEN890
900 POKE781,18:SYS59903
910 GOSUB40
920 IFST<>0THEN910
930 POKE214,17:PRINT:PRINT"[158]     [211]ET TOP OF FORM, PRESS A KEY!"
940 GETA$:IFA$=""THEN940
942 POKE781,18:SYS59903
950 OPEN4,4,7
960 PRINT#4,"                         [215] OF THE [208] [211]OLUTIONS"
970 PRINT#4:PRINT#4
980 PRINT#4,"A.   26 = [204] OF THE [193] : [204]ETTERS OF THE [193]LPHABET":PRINT#4
990 PRINT#4,"B.   12 = [205] IN A [217] : [205]ONTHS IN A [217]EAR":PRINT#4
1000 PRINT#4,"C.   12 = [211] OF THE [218] : [211]IGNS OF THE [218]ODIAC":PRINT#4
1010 PRINT#4,"D.  365 = [196] IN A [217] : [196]AYS IN A [217]EAR":PRINT#4
1020 PRINT#4,"E.    7 = [217] OF [194] [204] : [217]EARS OF [194]AD [204]UCK":PRINT#4
1030 PRINT#4,"F. 20000= [204] [213] THE [211] : [204]EAGUES [213]NDER THE [211]EA":PRINT#4
1040 PRINT#4,"G. 1001 = [193] [206] : [193]RABIAN [206]IGHTS":PRINT#4
1050 PRINT#4,"H.    1 = [197] [196] IN A [204] [217] : [197]XTRA [196]AY IN A [204]EAP [217]EAR":PRINT#4
1060 PRINT#4,"I.   57 = [195] AND [206] ON : [195]HANNELS AND [206]OTHING ON":PRINT#4
1070 PRINT#4,"J.   52 = [195] IN A [196] : [195]ARDS IN A [196]ECK":PRINT#4
1080 PRINT#4,"K.   24 = [200] IN A [196] : [200]OURS IN A [196]AY":PRINT#4
1090 PRINT#4,"L.   10 = [217] IN A [196] : [217]EARS IN A [196]ECADE":PRINT#4
1100 PRINT#4,"M.    7 = [196] IN A [215] : [196]AYS IN A [215]EEK":PRINT#4
1110 PRINT#4,"N.    5 = [208] OF THE [205] : [208]HASES OF THE [205]OON":PRINT#4
1120 PRINT#4,"O.  100 = [217] IN A [195] : [217]EARS IN A [195]ENTURY":PRINT#4
1130 PRINT#4,"P.   12 = [197] IN A [196] : [197]GGS IN A [196]OZEN":PRINT#4
1140 PRINT#4,"Q.   40 = [195] ON A [195] [211] : [195]OLUMNS ON A [195]OMMODORE [211]CREEN":PRINT#4
1150 PRINT#4,"R.   13 = [211] ON THE [195] [198] : [211]TARS ON THE [195]OLONIAL [198]LAG":PRINT#4
1160 PRINT#4,"S. 1000 = [215] A [208] IS [215] : [215]ORDS A [208]ICTURE IS [215]ORTH":PRINT#4
1170 PRINT#4,"T.  664 = [194] ON A [196] : [194]LOCKS ON A [196]ISK":PRINT#4
1180 FORI=1TO23:PRINT#4:NEXT:CLOSE4:GOTO120
9997 :
9998 :REM SCRATCH AND SAVE
9999 :
10000 OPEN15,8,15,"S0:B.W OF THE P":CLOSE15:SAVE"B.W OF THE P",8:END
39997 :
39998 :REM RETURN TO LS
39999 :
40000 A$="HELLO CONNECT":FORI=8TO12:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147][146]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147][146]LOAD"CHR$(34)A$CHR$(34)","I:POKE43,1
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
59997 :
59998 :REM LS COPYRIGHT BOX
59999 :
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO9:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[215]   [207] [198]   [212] [200] [197]   [208]":Z$(1)="BY [193]. [202]. [200]ELLER
60040 Z$(2)[178]"(LEN) 1994 BY (null)OFTDISK (null)UBLICATIONS"[170][199](13)
60050 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="[212]O SUBSCRIBE CALL 1-800-594-3370."
60090 POKE214,12:PRINT
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT
60110 FORT=0TO3000:NEXT
60120 RETURN